;;;List processing example
;;;
;;;
(defun lstsample (lst / )
 (mapcar
 '(lambda (itm)
   (cond
    ((= (cdr itm) "}")
     (setq lst3 (cons itm lst3))
    )
    ((= (car itm) 1003)
     (setq lst2 (cons itm lst2))
    )
    (T
     (setq lst1 (cons itm lst1))
    )
   )
  )
  lst
 )
 (list
  (reverse lst1)
  (reverse lst2)
   lst3
 )
)

